[r38]: / branches / SBSI / Main_Escape_PLC / Plc Logic / Application / IO / Light_PRG / svnobj  Maximize  Restore  History

Download this file

28 lines (27 with data), 4.7 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
IF NOT xInit THEN		
	Lights.ID := 2;
	Lights.Name := 'Status - Laser';
	Lights.GUID := '1c8fcb9b-d3be-463d-a0be-dae9a02ba149';
	Lights.LockCommands[0]:= 'Turn Laser On';
	Lights.LockCommands[1]:= 'Turn Laser Off';
	Lights.LockCommands[2]:= 'Turn Status On';
	Lights.LockCommands[3]:= 'Turn Status Off';	
END_IF
IF xAbort THEN
	io.Abort();
IF xClear THEN
	io.Clear();
IF xHold THEN
	io.Hold();
IF xReset THEN
	io.Reset();
IF xStart THEN
	io.Start();
IF xStop THEN
	io.Stop();
IF xSuspend THEN
	io.Suspend();
IF xUnHold THEN
	io.UnHold();
IF xUnSuspend THEN
	io.UnSuspend();